home *** CD-ROM | disk | FTP | other *** search
/ Celebration Sounds / Celebration Sounds.iso / pc / startup / startup.dir / Lingo_4_others.ls < prev    next >
Encoding:
Text File  |  1997-11-07  |  954 b   |  40 lines
  1. on hChangeCursor pCursorType
  2.   global gCursorStatus
  3.   if pCursorType <> gCursorStatus then
  4.     case pCursorType of
  5.       "watch":
  6.         cursor(4)
  7.       "blank":
  8.         cursor(200)
  9.       "arrow":
  10.         cursor(-1)
  11.       otherwise:
  12.         cursor([the number of member pCursorType, the number of member (pCursorType & "Mask")])
  13.     end case
  14.     set gCursorStatus to pCursorType
  15.   end if
  16. end
  17.  
  18. on hMakeSound pWhichSound, pWhichSoundChannel
  19.   if the sampleSize of member pWhichSound = 0 then
  20.     unloadMember(pWhichSound)
  21.   end if
  22.   puppetSound(pWhichSoundChannel, pWhichSound)
  23. end
  24.  
  25. on hCleanupSprites
  26.   repeat with n = 1 to 48
  27.     puppetSprite(n, 0)
  28.     set the visible of sprite n to 1
  29.   end repeat
  30. end
  31.  
  32. on hClearGlobals
  33.   global gCursorStatus, gDefaultSoundLevel
  34.   set tCursorStatus to gCursorStatus
  35.   set tDefaultSoundLevel to gDefaultSoundLevel
  36.   clearGlobals()
  37.   set gCursorStatus to tCursorStatus
  38.   set gDefaultSoundLevel to tDefaultSoundLevel
  39. end
  40.